home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / pff1_3 / pffdisp.frm < prev    next >
Text File  |  1995-05-08  |  4KB  |  164 lines
  1. VERSION 2.00
  2. Begin Form Viewer 
  3.    BackColor       =   &H00808080&
  4.    Caption         =   "PFF Display"
  5.    ClientHeight    =   5760
  6.    ClientLeft      =   165
  7.    ClientTop       =   720
  8.    ClientWidth     =   9480
  9.    ControlBox      =   0   'False
  10.    FontBold        =   0   'False
  11.    FontItalic      =   0   'False
  12.    FontName        =   "MS Sans Serif"
  13.    FontSize        =   8.25
  14.    FontStrikethru  =   0   'False
  15.    FontUnderline   =   0   'False
  16.    Height          =   6165
  17.    Icon            =   PFFDISP.FRX:0000
  18.    Left            =   105
  19.    LinkMode        =   1  'Source
  20.    LinkTopic       =   "Form2"
  21.    MinButton       =   0   'False
  22.    ScaleHeight     =   5760
  23.    ScaleWidth      =   9480
  24.    Top             =   375
  25.    Width           =   9600
  26.    Begin TextBox Display 
  27.       BackColor       =   &H00C0C0C0&
  28.       FontBold        =   0   'False
  29.       FontItalic      =   0   'False
  30.       FontName        =   "Terminal"
  31.       FontSize        =   9
  32.       FontStrikethru  =   0   'False
  33.       FontUnderline   =   0   'False
  34.       Height          =   5325
  35.       Left            =   0
  36.       MultiLine       =   -1  'True
  37.       ScrollBars      =   3  'Both
  38.       TabIndex        =   0
  39.       Top             =   450
  40.       Width           =   9495
  41.    End
  42.    Begin CommandButton PrintMe 
  43.       BackColor       =   &H00808080&
  44.       Caption         =   "Print &Me"
  45.       Height          =   375
  46.       Left            =   1440
  47.       TabIndex        =   2
  48.       Top             =   45
  49.       Width           =   1215
  50.    End
  51.    Begin CommandButton Finished 
  52.       BackColor       =   &H00808080&
  53.       Caption         =   "&Finished"
  54.       Height          =   375
  55.       Left            =   120
  56.       TabIndex        =   1
  57.       Top             =   45
  58.       Width           =   1215
  59.    End
  60. End
  61.  
  62. ' This sub works well only with VGA displays.  For EGA
  63. ' displays, you will want to modify the backcolor
  64. ' properties for the form and controls, and avoid this
  65. ' procedure.
  66. '
  67. Sub BorderBox2 (Source As Control, Action As Integer)
  68.     BLeft% = Source.Left - 10     ' Get coordinates
  69.     BTop% = Source.Top - 10
  70.     BWide% = Source.Width + 28
  71.     BHigh% = Source.Height + 28
  72.     ' Action TRUE means draw, FALSE means erase
  73.     If Action Then
  74.     ' Draw a recessed border around Source control
  75.     Line (BLeft%, BTop%)-Step(BWide%, -2), 0, B
  76.     Line -Step(-2, BHigh%), RGB(255, 255, 255), B
  77.     Line -Step(-BWide%, 2), RGB(255, 255, 255), B
  78.     Line -Step(2, -BHigh%), 0, B
  79.     Else
  80.     ' Erase border around Source control
  81.     Line (BLeft%, BTop%)-Step(BWide%, 0), Backcolor
  82.     Line -Step(0, BHigh%), Backcolor
  83.     Line -Step(-BWide%, 0), Backcolor
  84.     Line -Step(0, -BHigh%), Backcolor
  85.     End If
  86. End Sub
  87.  
  88. Sub Display_GotFocus ()
  89.  
  90.     Display.Text = ""
  91.     ChDrive Selection.Drive1.Drive
  92.     ChDir Selection.File1.Path
  93.     MyFile$ = Selection.File1.FileName
  94.     If MyFile$ <> "" Then
  95.     Open MyFile$ For Input As #1 Len = 4096
  96.     If LOF(1) > 32000 Then
  97.         Msg$ = "You will only be able to view the first" + Chr$(13)
  98.         Msg$ = Msg$ + "30K of the file"
  99.         MsgBox Msg$, 48, "File Too Large"
  100.         Do Until Len(Scratch$) >= 32000
  101.         Line Input #1, NextLine$
  102.         Scratch$ = Scratch$ + NextLine$ + Chr$(13) + Chr$(10)
  103.         Loop
  104.     Else
  105.         Do Until EOF(1)
  106.         Line Input #1, NextLine$
  107.         Scratch$ = Scratch$ + NextLine$ + Chr$(13) + Chr$(10)
  108.         Loop
  109.     End If
  110.     Close #1
  111.     Display.Text = Scratch$
  112.     Viewer.Caption = "Viewing " + MyFile$ + " - Size =" + Str$(Len(Scratch$))
  113.     Else
  114.     Beep
  115.     Msg$ = "No File Specified"
  116.     MsgBox Msg$, 48, "I Need a File!"
  117.     Viewer.Hide
  118.     End If
  119. End Sub
  120.  
  121. Sub Display_KeyPress (KeyAscii As Integer)
  122.  
  123.     Beep
  124.     KeyAscii = 0
  125.  
  126. End Sub
  127.  
  128. Sub Finished_Click ()
  129.  
  130.     Viewer.Hide
  131.     Unload Viewer
  132.  
  133. End Sub
  134.  
  135. Sub Form_GotFocus ()
  136.  
  137.     Display.Text = ""
  138.     Display_GotFocus
  139.  
  140. End Sub
  141.  
  142. Sub Form_Paint ()
  143.     
  144.     BorderBox2 Display, True
  145.  
  146. End Sub
  147.  
  148. Sub Form_Resize ()
  149.  
  150.     Display.Move 100, 446, Viewer.ScaleWidth - 200, Viewer.ScaleHeight - 546
  151.  
  152. End Sub
  153.  
  154. Sub PrintMe_Click ()
  155.  
  156.     Viewer.Caption = "Printing ..."
  157.     Viewer.MousePointer = 11
  158.     FormatFile MyFile$
  159.     Viewer.MousePointer = 0
  160.     Unload Viewer
  161.  
  162. End Sub
  163.  
  164.